home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / pascal3 / pro20 / dir.pas < prev    next >
Pascal/Delphi Source File  |  1987-02-14  |  1KB  |  37 lines
  1. Program dir;
  2. {Extract and print MSDOS directory entries}
  3.  
  4. type
  5.   regpack = record
  6.               ax,bx,cx,dx,bp,si,ds,es,flags: integer;
  7.             end;
  8.  
  9. var
  10.   recpack:       regpack;                {record for MsDos call}
  11.   FCB:           array[0..32] of byte;   {area for file control block}
  12.   filename:      array[1..32] of char;
  13.   i,j:           integer;
  14.   DataSeg:       integer;
  15.  
  16. begin
  17.   fillchar(FCB,sizeof(FCB),0);
  18.   for i := 1 to 32 do
  19.     FCB[i] := $3F;  {prefill the filename with wildcard characters}
  20.  
  21.   recpack.ax := $1A shl 8 ;
  22.   recpack.dx := Ofs(filename[1]) ;
  23.   recpack.ds := Seg(filename[1]) ;
  24.   MsDos(recpack) ;
  25.  
  26.   recpack.ax := $11 shl 8 ; {11H in AH by shifting left 8 bits}
  27.   recpack.dx := Ofs(FCB) ;  {load offset of FCB in dx}
  28.   recpack.ds := Seg(filename[1]) ;
  29.   MsDos(recpack) ; {call MsDos for first file search}
  30.  
  31.   write('Filename = ');
  32.   for i := 1 to 32 do write(filename[i]);
  33.   delay(1000);
  34.  
  35. end.
  36.                BEGIN
  37.                         ASSIGN (RFILE,